home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mintutil.d < prev    next >
Text File  |  1997-10-26  |  1KB  |  49 lines
  1. DEFINITION MODULE MintUtil;
  2.  
  3. (* Mehrere kleinere MiNT Tricks. Version 2   Karsten Isakovic / Berlin
  4.  *
  5.  * - Umlenken der Ausgaben eines paralellen Prozesses nach /dev/null
  6.  * - Umlenken der Ausgaben eines paralellen Prozesses in eine Pipe
  7.  * - Auslesen der Ausgaben aus der Pipe.
  8.  *)
  9.  
  10. (* Version in Megamax Modula 2 von Dirk Steins unter Benutzung 
  11.  * von Magic von Peter Hellinger
  12.  *)
  13.  
  14.  
  15. (*
  16.  * Startet einen paralellen Prozess der nach /dev/null ausgibt.
  17.  * Liefert den PID des neuen Prozesses.
  18.  *)
  19.  
  20. PROCEDURE ExecDevNull(REF name, cmdline, env : ARRAY OF CHAR): INTEGER;
  21.  
  22. (*
  23.  * Startet einen paralellen Prozess der in eine neue Pipe ausgibt.
  24.  * Liefert den PID des neuen Prozesses und den Filehandle
  25.  * der Pipe in 'pipe'.
  26.  *)
  27.  
  28. PROCEDURE ExecPipe (REF name, cmdline, env : ARRAY OF CHAR; VAR pipe : INTEGER) : INTEGER;
  29.  
  30. (*
  31.  * Liest von einer Pipe, sofern dort Daten vorhanden sind.
  32.  * Liefert Null, wenn keine Daten da waren, -1 wenn der
  33.  * Pipe-Prozess bendet wurde und einen positiven Wert, wenn
  34.  * Zeichen gelesen wurden.
  35.  *)
  36.  
  37. PROCEDURE ReadPipe (pid, pipe : INTEGER; VAR buf : ARRAY OF CHAR;
  38.                     VAR retCode : INTEGER): LONGINT;
  39.  
  40. (*
  41.  * Liefert 1 wenn MiNT installiert ist, sonst 0.
  42.  *)
  43.  
  44. PROCEDURE IsMiNT() : BOOLEAN;
  45.  
  46. END MintUtil.
  47.  
  48.  
  49.